RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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File operations for footnote processin 16-Se 4 AX-11 Bliss-32 V4.0-74 
° ° 14- ~300 7138 99: 34; 3} RUNOFF. BR CJFOOFIL.BLI; 


ns for! note processing’ 
$32~, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE 
NONEXTERNAL = LONG-RELATIVES] 


— 


ZTITLE ‘File ope 
MODULE foofil ( 


~~ Pe | 
Dow 
mimes 
—Z—, 
“=o 

" 


BEGIN 


LEER ERE EEE EERE EERE 
'® 7 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
is ALL RIGHTS RESERVED. » 
: ® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
it OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
it TRANSFERRED. . 
& 
iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. e 
e 
we 
® 
® 
® 
® 


!* DIGITAL ASSUMES NO RESPONS 
!® SOFTWARE ON EQUIPMENT WHIC 


SOOQCooooooooooooooooooo 
pepe poiolololelelelelolelolololololololelolelelolololo) 
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BONA WN (OC OONAULS WN O OONOUS wr 


FOR THE USE OR RELIABILITY OF ITS 


BILITY 
IS NOT SUPPLIED BY DIGITAL. 


I 
H 
PETTTITILILILILILI LILI LLL LITT Litt 
i 

i¢4 

FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

| ABSTRACT: 

! Handle all file operations for .FOOTNOTE and .END FOOTNOTE 

commands. 

ENVIRONMENT: Transportable 

AUTHOR: R.W. Friday CREATION DATE: September, 1978 
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Reviston History ormote Processing 1eSep-1986 3:00:25 ERUNorF sme Foor Let: a 


porn "Revision History’ 

MODIFIED BY: 

009 REROO009 Ron Randall 07-Mar-1983 
g 
ie 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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e operations for footnote processing 
ule Level Declarations 


ZSBTTL "Module Level Declarations’ 
1 


TABLE OF CONTENTS: 
FORWARD ROUTINE 
FOOF IL; 
1 
i INCLUDE FILES: 


LIBRARY 'NXPORT:XPORT'; 
REQUIRE 'REQ:RNODEF'; 


F DSRPLUS ZTHEN 
a REQ:DPLLIB’; 
— "REQ:DSRLIB'; 


erm_t (rnfcode, str_descr) = 
BEGIN 
BIND 


temp = str_descr : SSTR_DESCRIPTOR (); 


' XPORT Library 
!' RUNOFF variant definitions 


! DSRPLUS BLISS Library 
! DSR BLISS Library 


AX-11 Oh fag ee net bh | 
RUNOFF .SRC JF OOF ; 


IL.BLI 


arae trafcede, .temp CSTRSA_POINTER], .temp CSTRSH_LENGTH], .semcod) 


: EXTERNAL REFERENCES: 
EXTERNAL 
FNCT : 


NCT : FNCT_DEFINITION 
FNESIZ : FNTEXT_SIZE_DEFINITION, 
FNISIZ : FNIINT~SIZE-DEFINITION, 

MRA : REF FIXED_STRING, 
TSF : TSF_DEFINITION; 

EXTERNAL 

FO1IOB : $XPO_10B () 

FOOIOB : REF ~$XPO_10B (), 

FOTIOB : REF $XPO_J0B () i 
EENAME : $SSTR_DESCRIPTOR (CLASS = DYWA 
FOOREC : FOOREC_DEFINITION, 

FOOMRA : FIXED STRING 

FOOTSF : VECTOR CTSF_S1ZE); 


EXTERNAL LITERAL 
RNFCOF, 


Overall footnote statistics. 

Size of each pending footnote. 
Internal size of each pending 
footnote (number of TSF/MRA pairs) 


Only the address is looked at. 
rimary footnote 108. 
FOO_CLEAN, all footnote operations 


d as a work file for footnotes. 
ilename destination 
' Secondary error message code 

' Work area for pass-thru records. 

' Substitute MRA. 

! Substitute TSF area 


‘Error messages 


Except for 


SD 


H 10 


: 113 41 1 RNFCRF, 
: 114 42 1 RNFCWF, 

: 115 43 1 RNFILE: 

; 116 44 1 

: 14 45 1 EXTERNAL ROUTINE 

3 138 46 1 ERM 

> 11 47 1 ERME, 

: 120 48 1 . 

> 121 49 1 GRAB. RESULTANT; 
s Vée 50 1 


FOOF File operations for footnote processin o=3e0= 4 AX-11 Bliss-32 V4.0-74 Page 4 
Voe-O60 Module Level Declarations , ° 16 =Sep- 1382 99: 38; 3} RUNOFF. BR CJFOOFIL.BLI; ° (3) 


! NO, it's open for output. We can't have that! We must 
behic?® it and reopen it for input. 


WWW 
NOUSWN oO 


o 


] 
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FOOF File operations for footnote processin 1b-5e -1984 00:31: AX-11 Bliss-32 V4.0-74 Pa 5 | 
VOe-000 body of routine ° 1 ~8ep-19 4 90:30:35 ERUNOFF SRE FOOFIL.BLI; wat (4) | 
: 1246 1 ZSBITL ‘body of roys jn | 
: } 5 ! GLOBAL ROUTINE foofil (operation) = 
4% ; 4 1 t+ 
: : 3 5 i FUNCTIONAL DESCRIPTION: | 
3 : ? § ! } Performs operations on the footnote file. | 
: 4 8 fi FORMAL PARAMETERS: 
.- * 60 1! | 
: i ¢ e ! UPERATION indicates what should be done. See the file FFDEFS.REQ. 
rf 6 8 1 § IMPLICIT INPUTS: None 
s ¥ 64 1! 
: 138 65 1 ! IMPLICIT OUTPUTS: None 
: 139 96 a5 
; 140 8 67 1 ! ROUTINE VALUE: 
3; «6141 68 1 ! COMPLETION CODES: None 
3 126 0269 1! 
3; «(14 0270 1 ! SIDE EFFECTS: None 
3 6146 0271 1 !-- 
3 (145 0 ie 1 
3; 6146 027 BEGIN 
: 147 0274 LOCAL 
3 123 8 § STATUS; 
: 150 0277 CASE .OPERATION FROM 0 TO FFOO_OP OF 
3s 151 0278 SET 
: 13¢ 5344 
: FS 8 Hs CFOO, INIT : ! Initialize footnote file. 
: 155 0983 ! When initializing the 10B make sure the associated file name is 
s 156 028 ' correct. 
s Sr 0284 IF .FOOIOB EQLA FO110B 
s 158 3532 H 
3; «#159 P 0286 $XPO_IOB_INIT ( I0B = -FOOIOB, 
; 160 P 0287 ILE_SPEC = (*O01RNO.TMP'), 
; 6161 0288 4 ATTRIBUTES = BINARY) 
3 162 8 89 ELSE 
: 163 P 0290 $XPO_I0B_INIT ( 10B = .FOOIOB, 
3; 6164 P 8 91 FILE_SPEC = (*OO2RNO.TMP'), 
; 165 4 ATTRIBUTES = BINARY); 
: 166 9 RETURN FOO_NORMAL ; 
: 167 94 END; 
; 4168 95 
; 169 0 | CFOO_OPIN) : ! Open footnote file for input. 
3 170 p : BEGIN 
: \r¢ 3 if 4° 00r0e CIOB$V_OPEN) !' Is the file open? 
; 174 If ,:F00108 C1OB$V_INPUT] ! Yes, but is it for input? 
; 176 RETURN FOO_NORMAL ! Yes again, so return. | 
: 17 
: 155 | 
; 180 4 | 
i 


10 
FOOF File operations for footnote processin 1b-se -1984 00:31: AX-11 Bliss-32 V4.0-74 Pa F 
VOseOb0 body oF rout ine ° . 1 =300-1382 99:34:35 RUNOFF .SRCJFOOFIL.BLI; sr af vou 
; 181 4 foofil (foo_clos); ! nt ty succeeds, so no status | 
: : ¢ ? ' check needed. 
> 184 P0311 4 status = SXPO_OPEN ( I0B = .fooiob 
s 185 P \ 4 OPTIONS = INPUT 
; : P \? 2 RLS © grab_resultant 
: 4 15 4 ’ 
...% § 1 4 IF ,status 
3; 1 17 4 THEN 
; 6191 18 4 RETURN foo_normal 
: 136 19 4 EL 'Can't open footnote file for reading. 
; 9 Q BEGIN 
3; 6194 1 erm_t (rnfcof, ffname); 
; 195 g RETORN foo_bau; 
nt; i 4 ss 
: 198 5 4 END 
; 199 0 § ELSE 
; 200 0 ' The file is not open at all. This indicates some serious 
; 201 0328 ! error, since the only reason the file could be closed is 
3 Og 83 9 ! either that the user has defined no footnotes, or all the 
: 20 0330 ! footnotes have already been output. At any rate, output 
; 206 0331 ! an error message and return. 
; 205 03 ; 4 BEGI 
3 5] 83 4& ERMS (RNFILE, CHSPTR (UPLIT (*FOO_OPIN')), 9); 
> 20 3 4 4 RETURN FOO_BAD 
; oS 6 5 ; END 
: gio o337 siti 
: \2 0339 CFOO_RHDR) : 
3 F tre ienend a record header and copy the information into a safe place. 
: 215 P 0342 STATUS = $XPO_GET (10B = .FOOIOB 
: 216 P 034 FAILURE = XPO$10_FAILURE, 
3 i 8 rt} FULLWORDS = FOOREC_SIZE); 
: 219 0 46 IF NOT .STATUS ! Make sure the read went ok 
3 31 8 r THEN 
; ¢ 0 rk IF .STATUS EQL XPOS_END_FILE 
3 50 THEN ! End of file is ok. Just means there's 
3 4 51 RETURN FOO_ENDFIL ! nothing more to read. 
3 5 26 EL ' Couldn't read the record header. 
3 $ 53 4 BEG! 
: 54 4 ERM (RNFCRF, 0, 0); 
; 228 55 RETURN (FOO. BAD) 
: $8 3 ; 
: 1 28 ' The record header has been read ok. Now copy 
; § $25 2 yh ' the information where it will be safe. 
: 3 a ? RECORD_HEADER = FOOIOB CIOBSA_DATA) : REF VECTOR CFOOREC_SIZE); 
; 3 8 4 INCR I FROM_O0 TO (FOOREC_SIZE - 1) v9 
3 64 4 FOOREC C.J) = .RECORD_WEADER C.1); 


K 10 
F OOF erations for footnote processin 16-Sep-1984 00:31: AX-11 Bliss-32 V4.0-74 
routine -Sep- :06: ° L.BLI; 
VOe-000 tf ° 1425 38 9 36 34 RUNOF F SRC IF OOF I BL! 
; 3 END; 
: 33 
>; 241 4 signet successful completion to the user. 
; ¢ RETURN FOO_NORMAL 
: 246 END; 
: 245 
; 4 CFOO_OPOU) : 
: 246 Mi Open footnote file for output. 
3 rk BEGIN 
; 250 ! If the ite is ot reeds opened for output just return. 
3 51 IF .FOOIOB CIOBSV_OPEN 
; 26 THEN ! The File is at least open. 
3 3 IF_ .FOOIOB CIOBSV_OUTPUTI ! See if it’s open for output. 
3 ge HEN ! The file is in exactly the state we want it in. 
; 28 RETURN FOO_NORMAL 
; 5 LSE ' The le is open for input, so we have to clean it up 
; +4 RETURN FOOFIL (FOO_CLEAN); 
; 60 ! The file is not open at all. So start anew. 
; 61 ! Initialize the footnote 108. 
3 $¢ ; FOOFIL (FOO_INIT); 
3 $08 ; ‘Open file for output now. 
; 266 P ; status = $XPO_OPEN ( I0B = .fooiob 
; 67 P -OPTIONS = OUTPUT 
3 $8 P ; FAILURE = grab_resultant 
: 270 3 ; 
; 4 3 IF gi thet 
; os 4 RETURN foo_normal 
3 rR O38 i é ' Can't open footnote file for output. 
3 76 Be8 4 erm_t (rnfcof, ffname); 
: e277 404 4 RETORN foo_bad; 
3 % Béog END; 
: 280 a3 END; 
: 1 408 
H Be 408 CFOO_READ) : 
s 2 0410 T Read back a TSF/MRA pair. A basic assumption is that the user 
: rf bet} ' has already done a FOO_RHDR and found out that that is indeed 
: 5 aig ! what's coming, and that FOOREC_RECORD_SIZE contains the Length of 
: 86 041 i the TSF (which was fetched automatically by the FOO_RHDR 
3 8 414 !' operation). After the record header that was read, comes the 
; 288 15 ' actual TSF. Then comes a record header for the MRA, and them 
; 289 oi8 ' comes the actual MRA, 
: 290 1 BEGIN 
; 291 oi3 ‘First, get the dence igtion of the text that has been saved. 
; 292 P 041 STATUS = $XPO_GET ( 10B = .FOOIO ! 
: 29 P 420 FAILURE = XPO$10 FAILURE 
> 29% 421 FULLWORDS = .FOOREC_RECORD_SIZE); 


erations for footnote processin 1B-50 Sep-1984 AX-11 Bliss-32 V4.0-74 S 
rout tine “ ° eet 99: 36; 34 RUNOFF SRE FOOFIL.BLI; _ a8 


oO 
uw 


IF NOT .STATUS 
THEN 


4 «STATUS EQL XPOS ~END, 4 
en FOO_ENDF IL 


eached the end of the footnote file. 
' Couldn't read back footnote record. 
peste 

ERM (RNFCRF, 0, 0); 
RETURN FOO_BAD; 
foe 


! The text descriptor (TSF) was read correctly. Now move the 
! results into a waiting TSF. The move is done because the next 
i read invalidates the current 108 pointers. 


BIND 


! Note that reenet RECORD_SIZE amount of information is copied 
! instead of TSF_STZE enount of information. That allows other 


i routines to urite tof a TS. mh desired. 


| 
FOOTSF = FOOIOB CIOBSA_DATA] : REF VECTOR; 
| 


Mrororororororory Ooo 
SOGEAREUS ZS SSVEARAN LS SHUTS ARAVSSSSIRA RW LODO IE 


4 

4 

| 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 
END; 
' Get the record header for the MRA that must follow. 

4 

4 

: 


Be Se Se Be Oe Se Behe Se Se Se Se Be Be Se Se Se Se Se Ge Se Ge Se FF Fe Ge Ge FH Se Se Se Se Se Se Ge FH Se SH Se Se Se Se Ge FH Se Se Se Se Se Ge Ge Se Fe Se Se Sees 


§ ee 1 FROM OT sFoonet Acton. SIZE - 
4 TSF C.J] = O ooree 
ere 
0450 
0451 
Be 38 ' Note that this might be a good place to put a consistancy check. 
ot FOOFIL (FOO_RHDR); 
peas ' Now, get the actual saved text. Note that FULLWORDS could be 
3638 ! compu ed as CHSALLOCATION (.TSF_INT_HL + .TSF_INT_VL + 1) but 
045 i it's not, since that information is available in the record 
0458 ' header. Also thet allows other code to write more or less 
0459 i information, if desired. 
P 0460 STATUS = $XPO_GET 1¢ *T 0B = .FOOIOB 
P 0461 FAILURE = XPO$10_ FAILURE 
46¢ FULLWORDS = .FOOREC TRECORD. SIZE); 
464 ' Make sure the read went ok. 
465 if NOT .STATUS 
208 THEN ' Couldn't read back MRA, 
0 046 BEGIN 
41 68 ERM (RNFCRF g. 0); 
4¢ 469 RETURN FOO_BAD 
4 470 END; 
44 471 
45 oie ' Data was read, so make MRA Look Like a oneal FIXED string. 
ré 47 FS_START (MRA) = CHSPTR (.FOOIOB CIOBSA_ 
74 FS"NEXT (MRA) = .FS_START (MRA); 
8 475 FS_MAXSIZE (MRA) = .TSF_INT_HL + .TSF tnt VL; 
9 476 FS"LENGTH (MRA) = .TSF_INT_AL + .TSF_INT_OL;; 
50 47 RETURN FOO_NORMAL ; 
51 478 END; 


Seah =d 


m 10 | 
erations for footnote processin 16-Sep-1984 00:31: AX-11 Bliss-32 V4.0-74 Pa 9 
routine “ 8 18-808-1382 90:34:34 RUNOFF .SRCJFOOFIL.BLI; - (4) 


CFOO_PREAD) : ' 
T Read a record that's by Gettoition a ‘‘pass through"’ record. 
' Implicit in this process ng is that the user has already read the 
: record header in E 
' through"’ record is to be read. The pess hrough"’ record is not 
' copie anymore. but qeeesy left in the 
be vt it. The address is returned in FOOREC_ADDRESS. 
STATUS = $XPO_GET (10B = .FOOIOB 
FAILURE = XPO$10_FAILURE 
FULLWORDS = .FOOREC_RECORD_SIZE); 


determined that indeed, a ‘pass 


! Make sure the read went ok. 
IF NOT .STATUS 
THEN 


BEGIN 
ERM (RNFCRF, 0, 0); 
RETURN FOO_BAD 


| 
4 
4 

END; 

! The read went ok. Let the user know where the data is. 

' Tell the user everything went ok. | 
4 
4 
| 


NOUS WIN—OO@ 


ooouoovono 


FOOREC_ADDRESS = .FOOIOB CIOBSA_DATAJ; 
RETURN FOO_NORMAL 
END; 


LESRANLSSS 


CFOO_WRIT) : 
T Write a footnote record. A footnote record consists of a TSF 


0 

81 508 

5 509 ' record and an MRA record. record header preceeds each record. 

8 510 ' Note that this code leaves the minor record type (FOOREC_MINOR_CODE) 

Se 314 bctinh*- so that the user can put whatever he wants into if. 

86 51 

87 514 ! First create the record header for the TSF 

88 515 FOOREC_MAJOR_TYPE = FOOREC_MAJ_TSF; ! Major record type 

34 218 FOOREC_RECORD_SIZE = TSF_STZE; ' Length of the F 

91 518 ' Now actually write out the record header 

3 P 0519 STATUS = $XPO_PUT ( IOB =. 

9 P 0520 FAILURE = XPO$10_FAILURE 

34 521 BINARY_DATA = (FOOREC_SIZE, FOOREC)); 

38 3 IF NOT .STATUS 

+) 524 THEN ' If we couldn't write the 

98 525 BEGIN ' record header, then 

99 5 § ERM (RNFCWF, .STATUS, 0); ! report the error 
400 3 ! RETURN FOO_BAD i and exit 
4 5 ; 
3g P 0550 STATUS = $XPO_PUT ( I0B = .FOUIOB, ! Write the real TSF 
4 P 0531 FAILURE = XPO$10 FAILURE, 
405 ; ¢ BINARY_DATA = (TSF_SIZE, .TSF) ); 
109 534 IF NOT .STATUS | 
408 0535 THEN ' If we couldn't write the TSF, 

| 
| 


nN 10 
FOOF a Le operations for footnote processin 16-Sep 4 00:31: AX-11 Bliss-32 V4.0-7 Page 10 
Voce bb0 body of routine ° oe Saat A od lt 4 PS 9° a) 
BEGIN ' then 
ERM (RNFCWF, .STATUS, 0); ! report the error 
1 RETURN FOO_BAD; i and exit 
: END; 
1 ' Create the record he 
1 FOOREC_MAJOR_TYPE = FOOREC J_MRA; 
1 FOOREC-RECORB_SIZE = CHSALCOCATION ( .TSF_INT_HL + ! The number 
1 TSF_INT_VL + i of fullwords 
: i ag ! (at least 1) 


! And write it out. 
STATUS = $XPO_PUT ( 10B = .FOO10B 
paiure = XPO$10_FAI LURE 


ARY_DATA = (F Poort C SIZE, FOOREC)); 


! Make sure the write went ok. 
if x ae STATUS 


v 


> 
Ww 
o~ 
SOOSOOCSCOOCOOSOOSOCSOOOCOCOCOOCOCOOCOSCOSOOOCOCOCOCOOCOCOOCOOOOOOOO OOOO OOOOOOoOO 


BEGIN 
ERM (RNFCWF, .STATUS, 0); 
RETURN FOO_BAD 


Wi ODO NOU PU OD NPP OD 
vw 


AAS 


| 


PDEA XPM & BB BEEP PI 
WN O OCONOVNE WN S$ OOS NOU ES WOON 


5 keh ee ee ee ee ek ee ee le ee el ee et 


PUFUPULUSUSUSU SUSU STELIOS STASIS ST SUITS SISOS 


PANAAAAAIPINI HAE BEAR EE HF FAWN AMAA & BANANA ANNAN 


Be Se Be Oe Oe Be Se Ge Be Se Be Ge Ge Ge Se Ge Fe Be Ge Be Se Se Fe Fe Se Se Fe Se Se Ge Se Ge Be Se Se Se Se Se Se Se Se Ge Se Se Ge Se Se Se Ge Ge Se FH Se Ge Ge Ge ee 


! Write the MRA. pluays write at least 1 word. 
34 a STATUS = $XPO_PUT < I0B = .FOOIOB 
5 P FAILURE = XPO$IO_FAILURE 
P BINARY_DATA = ( ,FOOREC RECORD_SIZE, 

$ MRA (5)) ); 
439 66 ‘Update current size of this footnote as it's bein output. 
rr rt FNESIZ C.FNCT_COUNT) = .FNESIZ C.FNCT_COUNT] + .TSF_LINES; 
44 69 IF .STATUS 
44 70 THEN ! If the above write went OK, update the 
444 71 BEGIN ' phil ae. internal size of this footnote 
445 Le i (number of TSF/MRA pairs 
446 7 FNISIZ C.FNCT count} = .FNISIZ C. ENCT PeOUNTI +13 
447 574 RETURN FOO_NORMA ' and exit 
re 575 END 
44 278 ! If we couldn't write the MRA, 
450 57 PEGI 
451 378 ERM (RNFCWF poten. 0);! report the error 
43¢ 57 RETURN FOO_BAD i and exit 
45 580 EN NS in 
454 581 
455 5 ¢ END; 
$38 5 
45 584 CFOO_PWRIT] : ! Write a “pass through" record to the footnote 
£28 : 5 BEGIN i “temporary file: 
460 5 ! We assume that FOOREC_MINOR_TYPE has already been set, 
ree : i so we don't change it here.” 
iss 254 FOOREC_MAJOR_TYPE = FOOREC_MAJ_PASS; ! Set the major record type. 
465 P 0592 STATUS = $XPO_PUT (10B = .FOOIOB, ! Write the record header. 


oP Py oP oP oP De oe et ot oP 
SN NINN NGS 
DWONOULSWN—O 


500 


So000 
SSSLESRESS 


PUPP APIA IIIT 


a ah a ee ss 


Be Se Se Be Be Be Oe Se Se Se Se Fe Se Se Se Be Se Se Ge Fe Ge Ge Se Se Ge Fe Se Fe Se Ge Ge SF Oe Se SF SH Ss Se Se Se Fe 8 Se Se 4 Ss FHSS Se Oe Se Se SH es Se ee 
= 
Oo 
= 


mC VDOnNOurlwh— 


ST eh bebe 


Moron 


' 


URE = 
RY_DAT 
IF NOT .STATUS 

THEN 


' 
BEGIN i 
ERM (RNFCWF, .STATUS, 0); i 
RETURN FOO_BAD; 


! Now write the ecty ugh" 


STATUS = $XPO_PUT 


IF_ NOT .STATUS 
THEN 


1 
BEGIN 
ERM (RNFCWF, .STATUS, 0); i 
RETURN FOO_BAD; i 


! Upd 


at 
FNISIZ 
L 
N 


e 

be 
! Tell th 
AN FO 


CFOO_CLOS] : 


$XPO_CLOSE (10B = .FOOIOB 
OPTIONS = REMEMBER); 


RETURN FOO_NORMAL ; 
END; 


ser everything went ok. 
ORMAL 


CFOO_DELE) : 
} ernese the footnote file. 
$XPO_DELETE (10B = .FOOIOB, FAILURE = 
Be TURN FOO_NORMAL ; 


CFOO_ CLEAN) 


11 
ns for footnote processin 1b-5¢ -1984 00:31: AX-11 Bliss-32 V4.0-74 
Tne ¢ K 1 moet 1 99:5gi3h RUNOFF .SRCIFOOFIL.BLI; 
XPO$IO_FAILURE 
A = (FOOREC_SIZE, FOOREC)); 


If we couldn't write the 


! record header, then 


report the error 
and exit. 


record 


$10_FAILURE 
(.FOOREC_RECORD_SIZE, .FOOREC_ADDRESS)); 


If we Couldn't write the 

pass through" record, 
then report the error 
and exit. 


the record count for this footnote 
FNCT_COUNT) = .FNISIZ C.FNCT_ 
eu 
O_N 


COUNT) + 1; 


' Close the footnote file, but 


remember file information, 


! so it can Later be deleted. 


0); 


T The footnote file is open for reading, but we want to put a new 
! footnote at the end of it. Therefore, copy the remainder of the 
! footnote file into a new file, and leave it open for output, so 
! that stuff can be written to the end of the file. 


peoin 
XPO_IOB_INIT (10B = .fotiob); 


! Open the work file. Note that its name depends on which I0B 


' FOTIOB refers to. 
IF .FOTIOB EQLA FOTIOB 
THEN 


‘4 


11 

FOOF ile operations for footnote processin 1b-3¢ -1984 00:31:31 AX-11 Bliss-32 V4.0-74 Pp F 
Ose Obo fe) oF rout tine . 8 1 =3een}3 4 90:34:35 RUNDE E SRE TFOOR YC OL fot eat df vor 

3 Pp $ status = $XPO_OPEN ( I0B = .fotiob : 

P -OPTIONS = OUTPU : 

P 06 /ATTRIBUTES = ‘Shae : 

P 06 »FILE_SPEC = OT RNO. TMP’) $ 

Pp ° eFAILORE = oreh, resultant : 

6 LSE : 

P 06 status = SXPO_OPEN ( I0B = .fotiob ; 

P 06 -OPTIONS = OUTPU : 

P 06 »ATTRIBUTES = BINAR $ 

P 06 FILE _SPEC ( OORNO. TMP’) $ 

P 06 oFAILORE = a b 

NOT .statu 


N 

! Something went wrong 
BEGIN 

erm_t (rnfcof, ffname); 


OONAOVE WN O OONAULS WN O OONOAUEWN—OVOONOUS 


; 4 

: ? grab_resultant 

; 6 ‘ 

3 ? ie tar” that this work file could be opened. 

3 s 

3 ; 6 

s 536 6 

3 54 6 4 

3 4 6 4 

3 54 6 4 Ae foo_ bad 

7 ie 

: 54 6 ! Now copy ore work Tite eam the active footnote file inte 

; 54 6 ! the footnote work 

3; «54 6 STATUS = XPO$_NORMAL 

; 34 6 ; WHILE . STATUS” NEQ XPOS _END_FILE DO 

: 55 6 4 ! First read the record negeer that describes each record 

3 22 P 06 4 STATUS = "$xPO. GET a = 

: 55 P C680 4 AILURE” = XPO$10_FAILURE, 

: 22 ? 1 2 FULT UGROS = FOOREC SIZE); 

: 55 683 4 IF NOT .STATUS 

; 684 4 THEN 

c- we 685 4 

5 oF 686 4 i ,Peneshing® Ss not quite right. See what it is. 

3 260 tts : wan Fat XPO$_END_FILE 

; 206 689 4 3" oat out of this copy loop if nothing more to read. 

3; 2 690 4 EXITLOOP 

; 564 691 4 ELS 

3 369 22 4 L.apnettine serious. Can't read back a footnote record. | 

: 268 694 ERM (RNECRE 0, 0); 

; 568 695 RETURN FOO_BAD 

; 569 696 4 END; | 

; 570 697 4 

: 71 698 4 ead went correctly. Now vig 3 x copy it to the work file | 

; 378 343 2 STATUS” > $XPO_PUT (10B = .FOTIOB, BINARY_DATA = FOOIOB CIOB$T _DATA)); 

: 574 64 4 ' Check that it went ok. 

oe. 7 ; 4 if NOT .STATUS 

3 7 7 4 T 

; f A : 4 ! Something happened. | 

ee, 706 : ERM (RNFCWF, .STATUS, 0); 
| 


D 

FOOF File operations for footnote processin 16-Sep-1984 00:31: AX-11 Bliss-32 V4.0-74 Page 13 
y0e-000 body of routine . 12: ats 1 99:5 :35 RUNOFF CSREIFOOF Ye cou t0f . (4) 
$ 0 707 5 RETURN FOO_BAD 3 
; 1 f 3 ? END; : 
: 7 710 4 ' Read the record that follows the record header. . 
' $85 443 BIND. 
: be at FOOREC = FOOIOB CIOBSA_DATA] : REF FOOREC_DEFINITION; ; 
3 28s 715 ' Read orgciaely as much as the record header says was written. ; 
: 589 P rig STATUS = $XPO_GET (I0B = .FOOI10B : 
: 590 P 071 FAILURE = XPO$I0_FAILURE ; 
i 391 Oris FULLWORDS = .FOOREC_RECORD_SIZE); 
: 38 0720 ' Make sure the read went ok. ; 
: 3e Bf 1 i NOT .STATUS 3 
; 596 07 : 5 ! Something went wrong. End of file is not allowed here, 3 
3; 397 0724 6 EGI ! so it must be an error. 3 
; 598 0725 S ERM (RNFCRF, 0, 0); 3 
; 599 0726 RETURN (FOO_BAD) $ 
; 600 0727 END; 3 
; 601 0728 3 
; 60 0729 ' Now write this information to the work file. 3 
; 60 P 0730 STATUS = $XPO_PUT (I0B = .FOTIOB, : 
; 604 07 1s BINARY_DATA = FOOIOB CIOBS$T_DATA); ; 
; 606 07 § é ! Make sure the write went ok. F 
; 607 0734 5 IF NOT .STATUS é 
; 608 0735 2 THEN 3 
; 609 0736 ! Something bad happened 3 
; 610 0737 6 N g 
3; 611 0738 6 ERM (RNFCWF, .STATUS, 0); ; 
3 ols 0739 6 RETURN FOO_BAD 3 
: 61 0740 5 END; 3 
3 614 0741 5 : 
3 $615 tok: 4 END; 3 
; 616 0743 4 3 
3 344 tog: 3 END; ! End of copying from FOOIOB to FOTIOB. : 
3 619 0746 !' Get rid of the file that we just copied stuff from. 3 
; 620 P 0747 $XPO_CLOSE (10B = .FOOIOB ! Close the temp file, but : 
: 621 0748 OPTIONS = REMEMBER); i remember its name. : 
; 6 § P 0749 $XPO_DELETE (10B = .FOOIOB, : Now, delete it, but don't : 
: 683 730 FAILURE = 0); i bart if it isn’t there. | ; 
; 625 236 ! Now switch I0B prjatere because all the other FOOFIL operations | ; 
: 626 75 ' work only on FOOIO3. 3 
3; 627 754 4 GIN | r 
; 628 755 4 LOCAL 3 
; 629 726 4 TEMP; 3 
; 6350 Pe 4 3 
; 631 758 4 TEMP = .FOTIOB; 3 
i 638 759 4 FOTIOB = .FO010B; | ; 
; 63 760 4 FOOIOB = .TEMP; 
: O38 761 END; 
: 635 yo6 . : 
: 636 76 ‘Update the footnote counting information 

} 


—. . 


Ce 


} 
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F File operations for footnote processin 16- Sep-1984 AX-11 Bliss-32 V4.0-74 e 14 F 
hbo body of rout ine 4 8 =300 71382 99: 3h; 3} RUNOFF .SRCJFOOFIL.BLI; — (4) | Vv 
; 637 764 INCR I FROM 0 TO .FNCT_COUNT = 1 DO ; 
3 e38 ree i BEGIN = 3 
; 6359 768 4 FNESIZ f1 = .FNESIZ + ENC OLDI: 3 
: 640 767 & FNISIZ IJ = .FNISIZ | + .FNCT_OLDJ; é 
; oe 108 END; | : 
; ok 7% inet MG sopget there ever were any old footnotes. ; 
> 645 ae ; 
> 646 077 RETURN FOO_NORMAL | : 
: 647 774 END; 3 
; «64 0778 3 
3; 64 ore 3 
; 650 077 3 
; 651 0778 #1 END; 'End of FOOFIL : 
TITLE Orth File operations for footnote processing ; 
-IDENT \V04-000\ : 
-PSECT $PLIT$,NOWRT ,NOEXE ,2 
50 4D 54 26 4F 4E 52 31 30 30 00000 P.AAA: .ASCII \001RNO.TMP\ ; : 
50 40 54 2E GF 4E 5 2 30 30 QOO0A P.AAB: .ASCII \O02RNO.TMP\ : Ps 
4E 49 50 4F SF GF GF 46 00014 P.AAC ASCII FOO : $ 
50 4D 54 2E GF 4E 28 Ht Hi 30 Q001C P.AAD ASCII \001RNO.TMP\ : 3 
50 4D 54 2E GF 4E 5 2 30 30 00026 P.AAE eASCII \O02RNO.TMP\ : : 
.PSECT SOWNS,NOEXE , 2 ; 
000A 00000 SIOBSFILE SPEC: ; 
01 0& 00002 “BYTE 14, 1 : : 
00000000" 00004 ADDRESS P.AAA : 3 
000A 00008 SIOBSFILE SPEC: F 
-@ORD 10 $ 3 
G1 OE OQO000A oByT 14, 1 : 3 
00000000" 0000C -ADDRESS P.AAB 5 3 
QOOOA 00010 SIOBSFILE RPEES 3 
.@ORD 10 é 
01 OE& 00012 e 14, 1 3 F 
00000000" 00014 »ADDRE P.AAD F 3 
000A 00018 SIOBSF ILE SOEs: 10 : ; 
01 OE 001A “BYTE 14, 1 : F 
00000000" 0001C »ADDRESS P.AAE 3 : 


v0e~-060 


OOF4 


OOF 4 


8F 


8F 


File operations for footnote processing 
body of routine 


00 


00 


04 
04 
1E 
30 


FF SF 


2€E 
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000000006 
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56 
50 
50 


6E 


woo-rommmmnm 
—— Ooo nnn“ 
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000000006 


03 
00000000" 
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7 
F 
6 
9 
0 
6 
F 
F 
7 
0 
6 
F 
F 
F 
0 
I) 
5 
1 
7 
1 
1 
9 
F 


! 
5 
: 


1$: 


2$: 


p=1984 19:00: 


«EXTRN 
»PSECT 
- ENTRY 


PUSHL 
PUSHAB 


3} AX-11 Bliss-32 V4.0-74 1 
RUNOFF ..SRCJFOOFIL.BLI; 4 


XPOSDELETE 

SCODES,NOWRT ,2 

4 sl Save R2,R3,R4,R5,R6,R7,R8,RI,R10,- 
XPOSGET, R11 


0252 


REC 
108, R7 
SP 
OPERATION, #0, #10 


0643 


0284 


CODRMM: MRM 
>. * a 
‘ 
DD 
oo 


» (SP), #0, #244, (RO) 


#50397245, (R6) 
ppt EES, 4(R6) 
#0, (SP), #0, #244, (R6) 


#50397245, (R6) 
$10BSF ILE SPEC, 4(R6) 
#526, 30(R6) 

#1, 48(R6) 


0288 


0292 


R 
#3, XPOSOPEN 
0° STA 
status, $ 
5$ 
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File operati 
body of rout 
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00209000 
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se for footnote processing 
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ww 
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16$: 
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9c 19:00:33 — ERUnorr sme Sroor ie -61 174 


Fi ERP 
a 


rj wate! 
STATUS WR, 
#56, FOOIOB, R1 


I 
aQ(R1) FOOREC 
nape meese 


FOOIOB, RO 

OOREC+8, 52(RO) 
#2, 54(R 

4(R 


#6, 4 
R9 


ano 


0 


5 
STATUS, 17$ 
STATUS, #2134016 


1 
21$ 
#2, RO 

#56, FOOIOB, R1 
i 

a0(R1) C11, aTsFCi) 
FOOREC+8, I, 18$ 
#1, FOOFI 

FOO10B RO 
#4, ie 52(RO) 
£2. 54(RO) 

, * 44(RO) 
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FOOF File operations for footnote processin 16-Sep-1984 231: AX-11 Bliss-32 V4.0-74 7 F 
VOeL080 body of routine ° ° 13-88-1382 99:50:38 RUNOFF. ROIFOOFIL-BLI: a (as vol 

DD 001 6 PUSHL R ; : 

6 FB 001 CALLS #3, XPOSGET : : 

4 ES 00196 Blot «STATUS. StS > 0465 

20 000000006 EF D IAT MOVL MRA, RO : oe 3 ; 

1 7 DO 001A8 MOVL FoofoR, R1 : ; 

69 38 «=6Al «DO O01AB MOVL  56(R1) : : 

04 A 60 DO OO1AF MOVL (RO), (RO) + 0474 ; 

51 000000096 EF 00 001B3 MOVL. TSF, R1 + 0475 ; 

51 61 1 Al Ci OO1BA ADDL3 24(R1), (R1), R1 : ; 

08 Ad 1 DO 001BF MOVL RI, 8 (RO) : ; 

c a p 1¢3 MOVL RI 2(RO) : 0476 ; 

1¢ BRB 23$ > 064 3 

50 HY 1€9 20$:  MOVL. FOOIOB, R + 0490 ; 

34 Ad 68 4 AS 001CC MULW3 #4, FOOREC+8, 52(RO) : ; 

36 = AD 2 30 0101 OVB #2, 54(RO) : ; 

2c A 6 9 0105 OVB #6, 44(RO) : ; 

DD 00109 PUSHL 9 : ; 

D4 0010B CLRL. = = (SP) : ; 

50 DD 001DD PUSHL 9 : ; 

68 FB O1DF CALLS #3, XPOSGET : ; 

2 0 00 lee MOVL RO STATUS : ; 

08 2 E O1E BLBS STATUS, 22$ + 0493 : 

— 7C OO1EB 21$:  CLRQ =(SP) + 0496 ; 

000000006 8F bp O1EA PUSHL #RNFCRF : ; 

02¢9 31 O1FO BRW 42 : ; 

50 67 DO OO1F3 22$:  MOVL  FOOIOB, RO > 0501 F 

08 Ag 38 AO po 01F6 MOVL  56(RO). FOOREC+16 : ; 

033D 31 001FB 238: BRW 47$ + 0643 ; 

F8 AB D4 OOIFE 24$:  CLRL  FOOREC : 0515 : 

be 28 00 00201 MOVL #40 FOOREC +8 : 0516 ; 

50 67 DO 00204 MOVL FOOIOB, R : 0521 ; 

bE 10 80 0207 MOVW #16, $L0BSOUTPUT : : 

02 AE 02 90 0020A MOVB = #2, $10B$0UTPUT +2 ; ; 

03 AE 01 90 0 0 MOVE #1. $IOBSOUTPUT+ : : 

04 AE F8 AB YE 0021 MOVAB FOOREC, SIOBSOUTPUT+4 : ; 

44 AO 6 3 0 1 MOVAB $IOBSOUTPUT, 68(RO) ; ; 

2c =A 9 1B OVB #7, 44(RO) : : 

9 DD 0021F PUSHL R9 : : 

D4 00221 CLRL. = = (SP) ; ; 

50 0D 00 3 PUSHL R0 : 3 

6A F CALLS #3, XPOSPUT : ; 

52 D 8 OVL RO STATUS : : 

6¢ E g BLBC STATUS, 25$ ; 0523 : 

D E VL £00108 RO > 05 : 

bE AO BF 9 1 MOVZBW #160, $10BS$OUTP : ; 

02 AE 29 g vB ¢. $108sourput+¢ : F 

AE 19 9 MOVB $1 SOUTPUT+ : : 

04 Ar 000000006 _ EF p p MOVL TSF, $IOBSOUTPUT+4 : : 

4a A E ’ 4 MOVAB $10BSOUTPUT. 68 (RO) : : 

2c AO 9 49 MOVB #7, 44(RO) ; 3 

9 DD 0024D PUSHL ; : 

D4 O024F CLRL. = (SP) ; : 

DD PUSHL R : : 

$2 08 mot: ROS STATUS. 

E E BLBC —«s STATUS, Yee > 0534 ; 


Page 18 
AX-11 Bliss-32 V4.0=74 (4) 
Sep-1984 «SRCJFOOFIL.BLI; : 
File operations for footnote processing tat Sep-1 3c 99:06:23 meets : 0548 3 
ad Sn body of routine ” e a MOVL 4 rye : $07 : 
MOVL 
8 000000096 EF 00 " ADDLS  2h(RO), (ROD, RO ; 0545 
50 4 £9 d0g6¢ seet§ 52° RO. FooRECes ; 0550 
OE? Ooset MOVL 108) OR ; 
68 9 67 D MOVW © #16, lopsourpy ; ; 
bE | ; f move = AG S1desouTeUT se ; 2 
ne 0 sf ROVAB FOR dReC. $1oBsoyTPUT +4 : 
0, A Fo AB 9E O0geI HOVAB $1OBSOUTPUT, 6 ; 
a 8 OF $0 aoeea PUSHL RO” ; ; 
“ oe BP 3 CLAL  =(SP) 
50 DD 0029 EATS 8S, XPOSPUT pe : 
A fe Rhsos HOVE §— RO, STATUS : 055 : 
52 ; 6 059k 258: BLBC STATUS 6$ ; 0564 
28 of BD 00690 RULUS i eet at $10BSOUTPUT : : 
A i : 
6€ Re 03 90 O0eA4 HOVE 3 $10Bs0uTP ‘ : 
03 AE 01 90 00ca8 ADDLS #16, MR At tN ; : 
T ; : 
04 AE 000000006 EF ys 0 ag Nova — $108s0UT ; ; 
3¢ AO > 96 00269 PUSHL R ; ; 
oie: 9 Da OSBr CLRL a é ; 
D 002C1 curt OSPUT : 
6A i FB Oecs nour? i. tn : 0567 
3 DO 002C9 MOVE NCTA 
50 000000006 EF MOVL TSF - Snes 
seer AR ke auth: gystac eel i 
00000 O2E : : 
63 oree 5 0 £8 $68: ROVE Py FOOREC : 0594 : 
my eB Biase HOM FOG HE, : ; 
ee Oce Move “$10BSOUTPUT+ : ; 
os 09 $0 003k rove oat’ StossouTpure : 
02 AE 8 FG MOVE fl OBSOUTPUT +4 
a re RB 9e OORES an fo PUT, O8(RO) ; : 
ae AD GE OF Beene MOVE, #7, 44¢RO) ; 
rn 1 a a : : 
50 DD CALLS. #3, XPOSPUT fame 
A F MOVE, OR STATUS : 8030 : 
2 ; PD Oost BLBC STATUS, 2 $ ; 
sf RS 00317 MULU3 a, eet ue : ; 
4 A #2, ; : 
6 1B MOVB : 3 
rf 03 AE ; 30 O08iF HOVE ea 1 S19BS0UTPUT +4 ; 
oA 08 AB ; MOVAB : : 
a4 ni 5B Move, 4 
2c $ bb 008% PUSHL 
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FOOF File operations for footnote processin 1-50 -1984 00:31: AX-11 Bliss-32 V4.0-74 e " 
VOe-000 body of routine . ° 1 ~3ep-19 4 99:50:34 RUNOFF «SRC FOOFIL.BLI; eo (4) 
Ha at ag” : : 
ga F CALLS #3, XPOSPUT : 3 
Rg £9 O088¢ BlBt STATUS, Ses : 0608 
50 9000000 6 FF D0 F MOVL FNCT, R : p608 ; 
0000G0GEF D6 46 288 INCL NI SEZCRO : : 
5 87 DO OOSer 298: ROVE. F00I0B : 0625 
ze AD 19 BB 2 BIS62 #16, Be (RG) : : 
vn d OVB #2, 44(R : ; 
000000006 i OF 0035A PUSHAB XPOSFAILURE : ; 
D4 69 CLRL = = (SP) : ; 
50 DD 0036 PUSHL R F : 
000000006 EF 0 FB 64 CALLS #3, XPOSCLOSE : : 
12 1 B SRB 31§ + 0643 ; 
50 D D 30$:  MOVL  FOOIOB, RO + 0634 ; 
2c AO 3 3 0 MOVB 43 44 (RO) : ; 
oF ob bp8ze StSHL oP? ; : 
000000006 EF 33 FB 00 8 CALLS 3 XPOSDELETE : : 
0189 31 0037F 318: BRW 47§ + 0643 : 
56 000000006 EF 00 00 82 2$:  MOVL. FOTIOB, R6 > 0644 ; 
OOF4 © 8F 00 6E Q eC 00385 MOVCS #0, (SP), #0, #244, (R6) ; : 
66 0301003D 8F dO 00391 MOVL 450397245 (R6) : F 
1 HE oooh FE SP REP ABNNS Faifeg ows] |i 
Q 6 D1 003A CMPL RO’ : : 
OA 12 003A8 BNEQ : : 
04  A6 00000000° Ff 95 0 AA MOVAB $10BSFILE_SPEC, 4(R6) > 0655 
8 1 382 BRB 4$ ; 
04 A6 00000000" EF 9 00384 338: MOVAB $108$F ILE SPEC, 4(R6) > 0662 
2—E As 00010002 br cs O3BC 34$:  BISL2 #65538, 48(R6) : 
2C Ab 1 00 C4 MOVB #1, 44(R6) F 
000000006 cf 9F 0038 PUSHAB GRAB_RESULTANT ; 
E D4 003C CLRL © =( SPY : 
000000006 EF 3g PR BOR CACCS — S. XPOSOPEN ; 
5 59 09 03D MOVL RO. STATUS : 
2 E8 0030C BLBS STATUS, 36$ : 0665 
90000 G EF bp 0 DF 35$: PUSHL SEMCOD + 0669 
7E 000000006 EF 3C OO3E5 MOVZWL TEMP, -(SP) : 
90000 G EF DD O03E PUSHL TEMP+4 : 
000000006 EF . i PB i CALS Ben ERME ; 
2 00208001 ots : 3 i00 4 BGVL \. ae STATUS ; We 
00209000 FE D 209 39: CMPL STATUS, #2134016 > 0676 
g 13 0041 BEQL 8$ ; 
» ih 5 BB boa MOV phar BS cRoD _— 
36 A ; 41 MOVB #2, 54(RO) : 
C (A 1D MOVB #6. 44(RO) : 
DD 004 PUSHL R : 
; D4 433 CLRL. = (SP) : 
50 DD 004 PUSHL RO : 
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“11 Bliss-32 v4.0=74 (4) 
16-Sep-1984 9:58:33 ERUorr SRE SFOOF Ye -OLt 
Le operations for footnote processing 14-Sep-1984 15:06: ET : 
vou-000 body of rout ine 427 CALLS 3, eegee ; $687 
3 EB 0c a8 stars. #2134016 ; 
F Bi 04 : NEO 898 : 069% 
00209000 8F tO 44 : 3839 
00 4 1 0043C 398: BRW FOTIOB, RO : 
PPP BO OOGSE 408: OWL #52, F008, Rt é 
59 00000006 FF 00 cag ADDL ti "GBR ; 
51 x" Y $0 td PUSHAB XPOSFAICURE 
2c 400000006 GE OE bee CLRL = =( SP) ; 
BD OOGSA en OR uscsour ; 
HO Bc Lam 
0 ee ORbaluse on ; 0718 
i Bin Rp : 
51 7B te AS 06 mes Gee Bir aas i 
ry 3 3 475 eye OSE? Zetne) : 
34 Ad 08 AO é 3 $496 MOVB age : 
ae AO $ Bb OOdrA Peace Nesp) : 
. a : 
30 bp Oc out’ RO’ STATE. : 731 
3 59 09 a9ces BLBC STATUS, 398 
B 2 3; 0489 OVL 2, FOOIOB, R1 : 
39 000000006 y OS si ADDLS #32 “68D 
0 004 a7. é 
" 44 A 87 90 Bee PUSHAB RPGSFAILURE 
2" 900000006 EF 9F 0049 CLAL 
6 dD OOGas PUSHL aD XPOSPUT Som 
os PB RbeNe CALLS #3, XPOSPU : 073 
$8 50 0 8449 Bree §sTAris, ais ; 0738 
08 3 BY Oocar RRL =CSP) : 
; 4 00482 418: CL STATU : 
35 DD OcBs PUSHE BRNFCUF : 0739 
3e fe tes PUSHL RNF CVF : 073 
00000000G 8F FB 048 $33: it iy : 0748 
000000006 gf 83 BO O04C3 438: HOV sad 
. 2 BR Soaca “Sikhs SARI at 
Ze ho a 3 re PUSHAB HPOSE AILURE : | 
c F OF RL 3 
eocceeens FF thie CL : 0750. 
SHL R 3 07 
eee e 
ee 
000000006 EF | 
| 
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02-000 body of routine - ° 1$-Sen-1984 13:06:23 ERUNOFF SRE FOOFIL.BLI; . (3 
50 000000006 EF DO 0045S MOVL FOTIOB, TEMP : 07 

000000006 EF 7 09 4F MOVL §FOOIOB, FOTIOB ; a8 
? 0 D MOVL TEMP Foo! : 0760 
, > §f ae Peta 

51 5 G Ef ¢ 45$ ADDL3 FNCT+1 , RI : 

oo000000GEF4 GEF41 D MOVL FNESIZ(R1). ENESIZEL] : 
OOOD000GEF 4 GEF41 D MOVL  FNISIZER1), FNISIZLI : 0767 
D6 50 000 G6 EF F FNCT, J. 45s : 764 

00000006 Ff d4 005 FNCT+1 : 

1 00 3 #1, RO ; 

04 00 3 


; Routine Size: 1343 bytes, Routine Base: $CODE$ + 0000 


63¢ 0779 1 
; 65 0780 1 END ‘End of module 
654 0781 


: Name Bytes Attributes 

: SPLITS 48 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

> SOWNS 32 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN() 

> $CODES 1343 NOVEC.NOWRT. RD. EXE.NOSHR, LCL, REL. CON.NOPIC.ALIGN(2) 

; Library Statistics 

ak Oe lee SO be A Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: ~$255$DUA2B:['SVSL1BIKPORT 32:1 590 126 21 252 00:00.1 

3 7$255$DUA28: CRUNOFF .SRCJDSRLIB.L32;1 1248 44 3 86 00:00.3 

: COMMAND QUALIFIERS | 
; BLISS/CHECK=(FIELD, INITIAL. OPTIMIZE)/LIS=LIS$:FOOF IL/OBJ=OBJ$:FOOFIL MSRC$:F OOF IL/UPDATE=(ENHS:F OOF IL) 


Size: 1343 coge + 80 data bytes 
Run Time: 43.9 


: 83: 
; Elapsed Time: 2:00.8 
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body of routine 


; Lines/CPU Min: ; 53992 


ry Used: 486 ages 
Compilation Complete 


34] SH BT13A- SE ENT CORPOR 
VAX/VMS V4.0 N 
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